%%DocumentData: Binary


%%DocumentData: Clean8Bit


%%Extensions: CMYK


dopic


save
restore


%%EndComments


%%%%BlackPlate:%s


%%%%YellowPlate:%s


%%%%MagentaPlate:%s


%%%%CyanPlate:%s


%%DocumentProcessColors: Black


%%DocumentProcessColors: Yellow


%%DocumentProcessColors: Magenta


%%DocumentProcessColors: Cyan


%%DocumentProcessColors: Cyan Magenta Yellow Black


%%SuppressDotGainCompensation


%%%%BoundingBox: 0 0 %d %d


%%%%CreationDate: %s %s


%%%%Title: %s


%%Creator: Painter Version 2.0


%!PS-Adobe-3.0 EPSF-3.0


grestore end


0 %d translate 1 -1 scale %f %f scale %d %d translate


pixwidth pixheight scale


  {currentfile picstr readstring pop} false 3 colorimage


  {currentfile picstr readhexstring pop} false 3 colorimage


  {currentfile picstr readhexstring pop} false 4 colorimage


  {currentfile picstr readhexstring pop} image


gsave 0 %d translate 1 -1 scale


(Painter file: %s: %s %s: %s plate) show


AM

PM

0 setgray %f %f moveto


1 setgray %f %f moveto (K50) show


0 setgray %f %f moveto (C45 M55 Y65) show


1 setgray %f %f moveto (C50 M50 Y60) show


0 setgray %f %f moveto (C50 M50 Y50) show


black

yellow

magenta

cyan

(K) show


(Y) show


(M) show


(C) show


1 setgray %f %f moveto


currentfont [1 0 0 -1 0 0] makefont setfont


0 setgray newpath %f %f moveto lbox


  bwx 6 mul neg 0 rlineto closepath fill } def


/lbox { bwx 6 mul 0 rlineto 0 bhx neg rlineto


/picstr width %d mul string def


} def


/sproc%c {

1 fact div 1 fact div scale %f neg %f neg translate 0 %d translate 1 -1 scale


%f setgray newpath %f %f moveto lbox


%f %f /sproc%c load setscreen


%f %f /sproc%c load %f %f /sproc load setcolorscreen


%f %f /sproc%c load %f %f /sproc%c load


/dopic
{  width height 8
  [width 0 0 height neg 0 height]


%d %d translate %f %f scale 1 -1 scale 0 %d translate


0 %d translate 1 -1 scale %f %f scale %d %d translate


{} {} {} {} setcolortransfer


/picstr %d string def


/pixheight %d def


/pixwidth %d def


/height %d def


/width %d def


gsave


grestore


gsave 1 -1 scale 0 %d neg translate %f %f translate fact fact scale


dopic


gsave %d %d translate width fact mul height fact mul scale


} def


{currentfile picstr readstring pop} image


{currentfile picstr readstring pop} false 4 colorimage


width height 8 [width 0 0 height neg 0 height]


{} settransfer


{} {} {} {} setcolortransfer


/dopic {


/picstr width string def


/width %d def /height %d def /fact %f def


40 dict begin gsave


1 setgray 

0 setgray 

0.5 setlinewidth


%f setgray newpath %f %f moveto dobox


bwx neg 0 rlineto closepath fill} def


/dobox {bwx 0 rlineto 0 bhx neg rlineto


/bhx %f def


/bwx %f def


newpath %f %f %f 0 360 arc closepath fill


newpath %f %f moveto %f %f lineto stroke